home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 131 / Tiger_Disk_131_2005-07-22_Tiger-Crew-Disk_de_Side_B.d64 / mountain miner (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  25 lines
  1. 10 poke53280,0:poke53281,0:print"[147]"
  2. 20 printtab(8)"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  3. 30 printtab(8)" pudding mountain miner [146]"
  4. 40 printtab(10)" by charles brannon "
  5. 50 printtab(6)"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  6. 60 printtab(6)" press any key  to continue [146]"
  7. 90 get a$:ifa$=""then90
  8. 100 v=(peek(0)=76):w=40+18*v:t=1024-6656*v:c=55296+16896*v:s=53281+16402*v
  9. 110 c$=chr$(147):printc$:pokes,1-26*v:fori=0tow-1:q=22*w+i
  10. 115 poket+q,160:pokec+q,7:next
  11. 120 s$=chr$(32)+chr$(158)+chr$(18)+chr$(188)+chr$(146)+chr$(156)+chr$(185)
  12. 130 s$=s$+chr$(31)+chr$(175):q=rnd(1)*(w-7)+3+22*w:poket+q,164:pokec+q,5
  13. 140 fori=0tow-1:forj=0to7*rnd(1)+3:q=(21-j)*w+i:poket+q,160:pokec+q,2:next:next
  14. 150 printchr$(142);chr$(19);:y%=4*rnd(1)+1:fori=1toy%:print:next:x=0
  15. 160 l$=chr$(157):prints$;l$;l$;l$;:x=x+1:geta$:ifa$=""andx<w-4then160
  16. 170 ifx=w-4thenprinttab(x);chr$(32);chr$(32);chr$(32);:goto150
  17. 180 fori=y%+2to22:q=i*w+x+1:p=peek(t+q)
  18. 190 poket+q-w,32:poket+q,90:pokec+q,8*rnd(1):ifp=32thennext
  19. 200 b=b+1:poket+q,32:ifi<22goto160
  20. 210 ifp<>164thenfori=0to255:pokec+q,i:poket+q,i:next:printc$;"you lost":goto230
  21. 220 fori=1to50:poket+q,32+132*f:f=1-f:next:printc$;"you won! ";b;"bombs"
  22. 230 print:print"           press "chr$(18);"return";chr$(146);" to play  again"
  23. 240 geta$:ifa$<>chr$(13)then240
  24. 250 run100
  25.